home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / os2 / cpostsrc.arj / CPOSTHDR.H < prev    next >
Text File  |  1993-09-10  |  16KB  |  466 lines
  1. /*------------------------------------------------------------------
  2.  * cposthdr.h : default postscript header for cPost output
  3.  *------------------------------------------------------------------
  4.  * 02-01-93 originally by Patrick J. Mueller
  5.  *------------------------------------------------------------------*/
  6.  
  7. static char *Header_1[] =
  8.    {
  9.    "%%-----------------------------------------------------------------",
  10.    "%% font names and sizes",
  11.    "%%-----------------------------------------------------------------",
  12.    "",
  13.    "/Inch { 72    mul } def",
  14.    "/Cm   { 28.35 mul } def",
  15.    "/Mm   { 2.835 mul } def",
  16.    "",
  17.    "/nFontName /Courier              def % font name for normal text",
  18.    "/kFontName /Times-BoldItalic     def % font name for keywords",
  19.    "/iFontName /Courier              def % font name for identifiers",
  20.    "/fFontName /Times-Bold           def % font name for functions",
  21.    "/dFontName /Times-Bold           def % font name for function definitions",
  22.    "/cFontName /Courier-Oblique      def % font name for comments",
  23.    "/pFontName /Helvetica            def % font name for preprocessor",
  24.    "/lFontName /Courier              def % font name for line numbers",
  25.    "",
  26.    "/nFontSize  8                    def % font size for normal text",
  27.    "/kFontSize  8                    def % font size for keywords",
  28.    "/iFontSize  8                    def % font size for identifiers",
  29.    "/fFontSize 11                    def % font size for functions",
  30.    "/dFontSize 11                    def % font size for function definitions",
  31.    "/cFontSize  8                    def % font size for comments",
  32.    "/pFontSize 11                    def % font size for preprocessor",
  33.    "/lFontSize  7                    def % font size for line numbers",
  34.    "",
  35.    "%%-----------------------------------------------------------------",
  36.    "%% colors",
  37.    "%%-----------------------------------------------------------------",
  38.    "/nColor [ 0 0 0 ]                def % color for normal text",
  39.    "/kColor [ 0 0 0 ]                def % color for keywords",
  40.    "/iColor [ 0 0 0 ]                def % color for identifiers",
  41.    "/fColor [ 0 0 0 ]                def % color for functions",
  42.    "/dColor [ 0 0 0 ]                def % color for function definitions",
  43.    "/cColor [ 0 0 0 ]                def % color for comments",
  44.    "/pColor [ 0 0 0 ]                def % color for preprocessor",
  45.    "/lColor [ 0 0 0 ]                def % color for line numbers",
  46.    "",
  47.    "",
  48.    "%%------------------------------------------------------------------",
  49.    "%% page size, margin size",
  50.    "%%------------------------------------------------------------------",
  51.    "/pLength   11     Inch           def % page length",
  52.    "/pWidth     8.5   Inch           def % page width",
  53.    "",
  54.    "/lMargin     .5   Inch           def % margin: left",
  55.    "/rMargin     .5   Inch           def % margin: right",
  56.    "/tMargin     .75  Inch           def % margin: top",
  57.    "/bMargin     .75  Inch           def % margin: bottom",
  58.    "",
  59.    "%%------------------------------------------------------------------",
  60.    "%% header (and footer) info",
  61.    "%%------------------------------------------------------------------",
  62.    "/yh1 pLength .65 Inch sub def",
  63.    "/yh2 pLength .5  Inch sub def",
  64.    "/yh3 .65  Inch def",
  65.    "/yh4 .45  Inch def",
  66.    "",
  67.    "%%------------------------------------------------------------------",
  68.    "%% print a header and footer for odd numbered pages",
  69.    "%%------------------------------------------------------------------",
  70.    "/header1",
  71.    "   {",
  72.    "   lColor aload pop setrgbcolor",
  73.    "   newpath",
  74.    "      lMargin            yh1 moveto",
  75.    "      pWidth rMargin sub yh1 lineto",
  76.    "   stroke",
  77.    "",
  78.    "   /Times-Roman findfont 14 scalefont setfont",
  79.    "",
  80.    "   lMargin yh2 moveto",
  81.    "   currFunc show",
  82.    "",
  83.    "   /numberBuffer 10 string def",
  84.    "   pWidth rMargin                           sub",
  85.    "   pageNum numberBuffer cvs stringwidth pop sub",
  86.    "   (page ) stringwidth pop                  sub",
  87.    "   yh2 moveto",
  88.    "   (page ) show numberBuffer show",
  89.    "",
  90.    "   newpath",
  91.    "      lMargin yh3 moveto",
  92.    "      pWidth rMargin sub yh3 lineto",
  93.    "   stroke",
  94.    "",
  95.    "   /Helvetica findfont 7 scalefont setfont",
  96.    "",
  97.    "   lMargin yh4 moveto",
  98.    "   (Print date: ) show",
  99.    "   printDate show",
  100.    "",
  101.    "   lMargin 2 Inch add yh4 moveto",
  102.    "   (File date: ) show",
  103.    "   fileDateTime show",
  104.    "",
  105.    "   /Times-Roman findfont 14 scalefont setfont",
  106.    "",
  107.    "   pWidth rMargin           sub",
  108.    "   fileName stringwidth pop sub",
  109.    "",
  110.    "   yh4 moveto",
  111.    "   fileName show",
  112.    "   }",
  113.    "   def",
  114.    "",
  115.    "%%------------------------------------------------------------------",
  116.    "%% print a header and footer for even numbered pages",
  117.    "%%------------------------------------------------------------------",
  118.    "/header2",
  119.    "   {",
  120.    "   lColor aload pop setrgbcolor",
  121.    "   newpath",
  122.    "      lMargin            yh1 moveto",
  123.    "      pWidth rMargin sub yh1 lineto",
  124.    "   stroke",
  125.    "",
  126.    "   /Times-Roman findfont 14 scalefont setfont",
  127.    "",
  128.    "   pWidth rMargin           sub",
  129.    "   currFunc stringwidth pop sub",
  130.    "   yh2 moveto",
  131.    "   currFunc show",
  132.    "",
  133.    "   /numberBuffer 10 string def",
  134.    "   pageNum numberBuffer cvs pop",
  135.    "   lMargin yh2 moveto",
  136.    "   (page ) show numberBuffer show",
  137.    "",
  138.    "   newpath",
  139.    "      lMargin yh3 moveto",
  140.    "      pWidth rMargin sub yh3 lineto",
  141.    "   stroke",
  142.    "",
  143.    "   /Helvetica findfont 7 scalefont setfont",
  144.    "",
  145.    "   4 Inch yh4 moveto",
  146.    "   (Print date: ) show",
  147.    "   printDate show",
  148.    "",
  149.    "   6 Inch yh4 moveto",
  150.    "   (File date: ) show",
  151.    "   fileDateTime show",
  152.    "",
  153.    "   /Times-Roman findfont 14 scalefont setfont",
  154.    "",
  155.    "   lMargin yh4 moveto",
  156.    "   fileName show",
  157.    "   }",
  158.    "   def",
  159.    "",
  160.    "%%------------------------------------------------------------------",
  161.    "%% user defined from imbed file",
  162.    "%%------------------------------------------------------------------",
  163.    "",
  164.    };
  165.  
  166. static char *Header_2[] =
  167.    {
  168.    "",
  169.    "%%------------------------------------------------------------------",
  170.    "%% define actual header procs to use",
  171.    "%%------------------------------------------------------------------",
  172.    "/Header1 { header1 } def",
  173.    "/Header2 { oDuplex { header2 } { header1 } ifelse } def",
  174.    "",
  175.    "%%------------------------------------------------------------------",
  176.    "%% define our fonts to shorter names",
  177.    "%%------------------------------------------------------------------",
  178.    "/nFont nFontName findfont nFontSize scalefont def",
  179.    "/kFont kFontName findfont kFontSize scalefont def",
  180.    "/iFont iFontName findfont iFontSize scalefont def",
  181.    "/fFont fFontName findfont fFontSize scalefont def",
  182.    "/dFont dFontName findfont dFontSize scalefont def",
  183.    "/cFont cFontName findfont cFontSize scalefont def",
  184.    "/pFont pFontName findfont pFontSize scalefont def",
  185.    "/lFont lFontName findfont lFontSize scalefont def",
  186.    "",
  187.    "%%------------------------------------------------------------------",
  188.    "%% define our fonts to REAL short names",
  189.    "%%------------------------------------------------------------------",
  190.    "/n { nColor nFont nFontSize } def",
  191.    "/k { kColor kFont kFontSize } def",
  192.    "/i { iColor iFont iFontSize } def",
  193.    "/f { fColor fFont fFontSize } def",
  194.    "/d { dColor dFont dFontSize } def",
  195.    "/c { cColor cFont cFontSize } def",
  196.    "/p { pColor pFont pFontSize } def",
  197.    "/l { lColor lFont lFontSize } def",
  198.    "",
  199.    "%%-----------------------------------------------------------------",
  200.    "%% max function",
  201.    "%%-----------------------------------------------------------------",
  202.    "/max",
  203.    "   {",
  204.    "   2 copy",
  205.    "   lt { exch } if",
  206.    "   pop",
  207.    "   } def",
  208.    "",
  209.    "%%-----------------------------------------------------------------",
  210.    "%% maximum line height",
  211.    "%%-----------------------------------------------------------------",
  212.    "/maxLineHeight",
  213.    "   nFontSize",
  214.    "   kFontSize max",
  215.    "   iFontSize max",
  216.    "   fFontSize max",
  217.    "   dFontSize max",
  218.    "   cFontSize max",
  219.    "   pFontSize max",
  220.    "   lFontSize max",
  221.    "   def",
  222.    "",
  223.    "%%------------------------------------------------------------------",
  224.    "%% see if x lines will fit on the page",
  225.    "%%------------------------------------------------------------------",
  226.    "/linesFit",
  227.    "   {",
  228.    "   maxLineHeight mul currY exch sub bMargin sub",
  229.    "   0 lt",
  230.    "   { showPage } if",
  231.    "   } def",
  232.    "",
  233.    "%%-----------------------------------------------------------------",
  234.    "%% print stack",
  235.    "%%-----------------------------------------------------------------",
  236.    "/Stack",
  237.    "   {",
  238.    "   (░░░░░░░░░░░░░░░░░░░░stack░░░░░░░░(bottom->top)░░░░░░░░) print <0D0A> print",
  239.    "   pstack",
  240.    "   } def",
  241.    "",
  242.    "%%------------------------------------------------------------------",
  243.    "%% width of one space in normal font",
  244.    "%%------------------------------------------------------------------",
  245.    "/spaceWidth",
  246.    "   nFont setfont ( ) stringwidth pop",
  247.    "   def",
  248.    "",
  249.    "%%------------------------------------------------------------------",
  250.    "%% width of line number information",
  251.    "%%------------------------------------------------------------------",
  252.    "/lineNoWidth",
  253.    "   oNumber",
  254.    "      { lFont setfont (12345678) stringwidth pop }",
  255.    "      { 0 }",
  256.    "      ifelse",
  257.    "   def",
  258.    "",
  259.    "%%------------------------------------------------------------------",
  260.    "%% take a column, return an X offset from left margin",
  261.    "%%------------------------------------------------------------------",
  262.    "/getXfromCol",
  263.    "   {",
  264.    "   spaceWidth mul                % size of column number of spaces",
  265.    "   lMargin  lineNoWidth add add  % left margin and size of line no info",
  266.    "   spaceWidth oSpace mul add     % add spaces",
  267.    "   } def",
  268.    "",
  269.    "%%------------------------------------------------------------------",
  270.    "%% given the text/font array from showLine, calculate line height",
  271.    "%%------------------------------------------------------------------",
  272.    "/calcLineHeight",
  273.    "   {",
  274.    "   /lineHeight lFontSize def",
  275.    "",
  276.    "   lineArray aload",
  277.    "",
  278.    "   length 4 idiv",
  279.    "      {",
  280.    "      pop",
  281.    "      pop",
  282.    "",
  283.    "      dup",
  284.    "      lineHeight gt",
  285.    "         {",
  286.    "         /lineHeight exch def",
  287.    "         }",
  288.    "         {",
  289.    "         pop",
  290.    "         } ifelse",
  291.    "",
  292.    "      pop",
  293.    "      } repeat",
  294.    "",
  295.    "   } def",
  296.    "",
  297.    "%%------------------------------------------------------------------",
  298.    "%% reverse contents of an array",
  299.    "%%------------------------------------------------------------------",
  300.    "/reverseLineArray",
  301.    "   {",
  302.    "",
  303.    "   /Ind1 0                 def",
  304.    "   /Ind2 numElements 1 sub def",
  305.    "",
  306.    "   numElements 2 idiv",
  307.    "      {",
  308.    "      /Item1 lineArray Ind1 get def",
  309.    "      /Item2 lineArray Ind2 get def",
  310.    "",
  311.    "      lineArray Ind1 Item2 put",
  312.    "      lineArray Ind2 Item1 put",
  313.    "",
  314.    "      /Ind1 Ind1 1 add def",
  315.    "      /Ind2 Ind2 1 sub def",
  316.    "      } repeat",
  317.    "",
  318.    "   } def",
  319.    "",
  320.    "%%------------------------------------------------------------------",
  321.    "%% given an array of text/font info, print it",
  322.    "%%------------------------------------------------------------------",
  323.    "/showLine",
  324.    "   {",
  325.    "   /lineArray exch def",
  326.    "   /numElements lineArray length def",
  327.    "",
  328.    "   reverseLineArray",
  329.    "",
  330.    "   calcLineHeight",
  331.    "",
  332.    "   currY lineHeight sub bMargin le",
  333.    "      {",
  334.    "      showPage",
  335.    "      } if",
  336.    "",
  337.    "   /currY currY lineHeight sub def",
  338.    "",
  339.    "",
  340.    "   oNumber",
  341.    "      {",
  342.    "      lColor aload pop setrgbcolor",
  343.    "      lMargin currY moveto",
  344.    "",
  345.    "      lFont setfont",
  346.    "",
  347.    "      /numberBuffer 8 string def",
  348.    "      lineNum numberBuffer cvs stringwidth pop",
  349.    "      lineNoWidth exch sub 0 rmoveto",
  350.    "",
  351.    "      numberBuffer show",
  352.    "      } if",
  353.    "",
  354.    "   0 getXfromCol currY moveto",
  355.    "",
  356.    "   lineArray aload pop",
  357.    "",
  358.    "   numElements 4 idiv",
  359.    "     {",
  360.    "     aload pop setrgbcolor",
  361.    "     setfont",
  362.    "     pop",
  363.    "     show",
  364.    "     } repeat",
  365.    "",
  366.    "   /lineNum lineNum 1 add def",
  367.    "",
  368.    "   } def",
  369.    "",
  370.    "%%------------------------------------------------------------------",
  371.    "%% end of page reached",
  372.    "%%------------------------------------------------------------------",
  373.    "/showPage",
  374.    "   {",
  375.    "   pageNum 2 mod 1 eq { Header1 } { Header2 } ifelse",
  376.    "   showpage",
  377.    "   oXlate",
  378.    "   /pageNum pageNum 1 add def",
  379.    "   /currY pLength tMargin sub def",
  380.    "   } def",
  381.    "",
  382.    "%%------------------------------------------------------------------",
  383.    "%% start a new source file",
  384.    "%%------------------------------------------------------------------",
  385.    "/startFile",
  386.    "   {",
  387.    "   /fileDateTime exch def",
  388.    "   /fileName     exch def",
  389.    "   /pageNum         1 def",
  390.    "   /lineNum         1 def",
  391.    "   /currFunc       () def",
  392.    "   /currY     pLength tMargin sub def",
  393.    "   oXlate",
  394.    "   } def",
  395.    "",
  396.    "%%------------------------------------------------------------------",
  397.    "%% end a source file",
  398.    "%%------------------------------------------------------------------",
  399.    "/endFile",
  400.    "   {",
  401.    "   oDuplex { pageNum 2 mod 1 eq { showPage } if } if",
  402.    "   showPage",
  403.    "   } def",
  404.    "",
  405.    "%%------------------------------------------------------------------",
  406.    "%% middle bracket",
  407.    "%%------------------------------------------------------------------",
  408.    "/mB",
  409.    "   {",
  410.    "   1 sub getXfromCol /currX exch def",
  411.    "   gsave",
  412.    "   newpath",
  413.    "",
  414.    "   currX currY moveto",
  415.    "   0 lineHeight rlineto",
  416.    "",
  417.    "   .2 setlinewidth",
  418.    "   stroke",
  419.    "   grestore",
  420.    "   } def",
  421.    "",
  422.    "%%------------------------------------------------------------------",
  423.    "%% upper bracket",
  424.    "%%------------------------------------------------------------------",
  425.    "/uB",
  426.    "   {",
  427.    "   1 sub getXfromCol /currX exch def",
  428.    "   gsave",
  429.    "   newpath",
  430.    "",
  431.    "   currX currY moveto",
  432.    "",
  433.    "   currX                currY lineHeight .4 mul add",
  434.    "   currX spaceWidth add currY lineHeight .4 mul add",
  435.    "   spaceWidth 2 div arcto 4 { pop } repeat",
  436.    "",
  437.    "   .2 setlinewidth",
  438.    "   stroke",
  439.    "   grestore",
  440.    "   } def",
  441.    "",
  442.    "%%------------------------------------------------------------------",
  443.    "%% lower bracket",
  444.    "%%------------------------------------------------------------------",
  445.    "/lB",
  446.    "   {",
  447.    "   1 sub getXfromCol /currX exch def",
  448.    "   gsave",
  449.    "   newpath",
  450.    "",
  451.    "   currX currY lineHeight add moveto",
  452.    "",
  453.    "   currX                currY lineHeight .4 mul add",
  454.    "   currX spaceWidth add currY lineHeight .4 mul add",
  455.    "   spaceWidth 2 div arcto 4 { pop } repeat",
  456.    "",
  457.    "   .2 setlinewidth",
  458.    "   stroke",
  459.    "   grestore",
  460.    "   } def",
  461.    "",
  462.    "%%-----------------------------------------------------------------",
  463.    "%% now the actual file data",
  464.    "%%-----------------------------------------------------------------",
  465.    };
  466.